home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / programs / mbbs12d.zip / MACRONYT.MAC < prev    next >
Text File  |  1992-06-23  |  3KB  |  86 lines
  1.  
  2.                          MACRONYT.MAC v1,2d
  3.                 by Jeff Oberlee   (C)opyright 1992
  4.  
  5. {:alr}  {MACL MACROBBS.MAC,WF3}     {:alu}  {MACL MACROBBS.MAC,bbs}
  6.  
  7. {:start}
  8.   {BEEP} {BEEP} {BEEP}  {PAUS 1}  {BEEP} {BEEP} {BEEP}  {CLEA}
  9.   {DISP 2,1,0F,Cleaning up for %ldate:}
  10.   {CALL read_data}  {SETV login_name,%l_caller}  {SETV userno,%luserno}
  11.   {DISP 3,1,07,Closing log...}
  12.   {WOPE-A %datadir%LOG-1.LOG}  {WRIT  }  {WRIT ██████████████████████████████████ END OF DAY ██████████████████████████████████}  {WCLO}
  13.   {DISP 4,1,07,Updating CALLERS.ALL...}
  14.   {IFEX %datadir%CALLERS.TDY,,SCH12}
  15.   {ROPE %datadir%CALLERS.TDY,SCH11}
  16.   {WOPE-A %datadir%CALLERS.ALL}
  17. {:SCH}  {READ dline}  {WRIT %dline}  {GOTO SCH}
  18. {:SCH11} {WCLO}
  19.   {EXEC-N DEL %datadir%CALLERS.TDY}
  20. {:SCH12}  {DISP 5,1,07,Updating STATS.LOG...}
  21.   {SETV ch,3}  {LENG %ttu}  {DECR ch,%_len}  {SUBS dline,1,%ch,  }
  22.   {SETV ch,3}  {LENG %tdcalls}  {DECR ch,%_len}  {SUBS cline,1,%ch,  }
  23.   {WOPE-A %datadir%STATS.LOG}   {WRIT %ldate     %cline%%tdcalls    %dline%%ttu mins     %pub        %pvt}   {WCLO}
  24.   {SETV ch,0}   {SETV count,0}
  25.   {DISP 6,1,07,Updating CHART.LOG...}
  26. {:SCH0}  {INCR ch,20}   {INCR count}
  27.   {COMP ch,%ttu}  {IFCO-LE SCH0}
  28.   {SUBS dline,1,%count,│████████████████████████████████████████████████████████████████████████}
  29.   {SUBS day,1,2,%ldate}  {SUBS mon,4,2,%ldate}
  30.   {WOPE-A %datadir%CHART.LOG}   {WRIT %day/%mon %dline}   {WCLO}
  31.   {SETV ldate,%_dat}  {SETV stime,no calls} {SETV ftime,yet today}
  32.   {SETV tdcalls,0}  {SETV ttu,0}  {SETV pvt,0}  {SETV pub,0}  {SETV tf,1}
  33.   {SETV day}  {SETV mon}  {SETV dline}
  34.   {CALL write_data}
  35.   {DISP 7,1,07,Opening LOG for %_dat...}
  36.   {SETV count,7}
  37. {:SCH1} {SETV ch,%count}  {DECR count}
  38.   {COMP count,0}  {IFCO SCH2}
  39.   {IFEX %datadir%LOG-%count.LOG,,SCH1}
  40.   {EXEC-N COPY %datadir%LOG-%count.LOG %datadir%LOG-%ch.LOG}
  41.   {GOTO SCH1}
  42. {:SCH2}  {EXEC-N DEL %datadir%LOG-1.LOG}
  43.   {WOPE-A %datadir%LOG-1.LOG}  {WRIT ███████████████████████████████ LOG OF %_dat ████████████████████████████████}  {WRIT  }  {WRIT  }  {WCLO}
  44.  
  45. {:SCH7}  {DISP 8,1,,%an7%%an9* COMPLETE *}
  46.   {BEEP} {BEEP} {BEEP}  {PAUS 1}  {BEEP} {BEEP} {BEEP}
  47.   {MACL MACROBBS.MAC,bbs}
  48.  
  49. {:read_data}
  50.   {ROPE %datadir%CALLER.DAT,RD1}
  51.   {READ %callno}
  52.   {READ %tdcalls}
  53.   {READ pub}
  54.   {READ pvt}
  55.   {READ ttu}
  56.   {READ tf}
  57.   {READ ldate}
  58.   {READ stime}
  59.   {READ ftime}
  60.   {READ l_caller}
  61.   {READ luserno}
  62.   {READ uhigh}
  63.   {READ mhigh}
  64.   {READ fhigh}
  65.   {RCLO}
  66. {:RD1}  {RETURN}
  67.  
  68. {:write_data}
  69.   {WOPE %datadir%CALLER.DAT}
  70.   {WRIT %callno}
  71.   {WRIT %tdcalls}
  72.   {WRIT %pub}
  73.   {WRIT %pvt}
  74.   {WRIT %ttu}
  75.   {WRIT %tf}
  76.   {WRIT %ldate}
  77.   {WRIT %stime}
  78.   {WRIT %ftime}
  79.   {WRIT %login_name}
  80.   {WRIT %userno}
  81.   {WRIT %uhigh}
  82.   {WRIT %mhigh}
  83.   {WRIT %fhigh}
  84.   {WCLO}
  85.   {RETURN}
  86.